home *** CD-ROM | disk | FTP | other *** search
/ Aminet 32 / Aminet 32 (1999)(Schatztruhe)[!][Aug 1999].iso / Aminet / dev / amos / AMOSList-0499.lzh / AMOSLIST / 000122_nobody_Fri Apr 16 01:19:46 1999.msg < prev    next >
Internet Message Format  |  1999-05-01  |  4KB
  1. Received: from onelist.com (pop.onelist.com [209.207.164.205])
  2.     by osf1.gmu.edu (8.8.8/8.8.8) with SMTP id BAA20047
  3.     for <mcox4@osf1.gmu.edu>; Fri, 16 Apr 1999 01:19:41 -0400 (EDT)
  4. Received: (qmail 23952 invoked by alias); 16 Apr 1999 04:42:30 -0000
  5. Received: (qmail 23933 invoked from network); 16 Apr 1999 04:42:29 -0000
  6. Received: from unknown (HELO mago.agonet.it) (195.32.124.10) by pop.onelist.com with SMTP; 16 Apr 1999 04:42:29 -0000
  7. Received: from agonet.it (ghizzo@p126070.agonet.it [195.32.126.70]) by mago.agonet.it (8.8.5/8.8.5) with SMTP id HAA24769 for <amos-list@onelist.com>; Fri, 16 Apr 1999 07:19:21 +0200
  8. From: Pietro Ghizzoni <ghizzo@agonet.it>
  9. To: amos-list@onelist.com
  10. Date: Fri, 16 Apr 1999 07:05:52 +0200
  11. Message-ID: <yam7775.2622.1748273288@mail.agonet.it>
  12. In-Reply-To: <yam7773.203.135991264@mail1.tinet.ie>
  13. X-Mailer: YAM 2.0Preview7 [020] - Amiga Mailer by Marcel Beck - http://www.yam.ch
  14. Organization: Dairymen Soft
  15. Mailing-List: list amos-list@onelist.com; contact amos-list-owner@onelist.com
  16. Delivered-To: mailing list amos-list@onelist.com
  17. Precedence: bulk
  18. List-Unsubscribe: <mailto:amos-list-unsubscribe@ONElist.com>
  19. Reply-to: amos-list@onelist.com
  20. Mime-Version: 1.0
  21. Content-Type: text/plain; charset=iso-8859-1
  22. Content-transfer-encoding: 8bit
  23. Subject: [amos-list] Re: Formatting String/Integer Gadgets in GUI Extension.
  24. Status: O
  25. X-Status: 
  26.  
  27. From: Pietro Ghizzoni <ghizzo@agonet.it>
  28.  
  29. Hello Declan
  30.  
  31. On 15-Apr-99, Declan Gorman wrote: [amos-list] Re: Formatting String/Integer Gadgets in GUI Extension.
  32.  
  33.  
  34. >> Why it doesn't works ??????
  35. > 
  36. > I was hoping you could tell me. :)
  37.  
  38. Hehe :) Oooppsss... it doesn't works :() because the integer gadget use the
  39. same justify method, and so the number is always shifted to the left. No
  40. problem.... see below...
  41.  
  42. > When the Integer gadget is selected in the gui it calls the following
  43. > code Where G=Gui Wait
  44. > 
  45. > If G=37
  46. > _STEP_SEQ_VELOCITY_1(_SEQUENCE)=Gui Code
  47. >  If _STEP_SEQ_VELOCITY_1(_SEQUENCE)>127
  48. >   Gui Beep
  49. >   _STEP_SEQ_VELOCITY_1(_SEQUENCE)=127
  50. >  End If
  51. > Gui Set 1,37,0,_STEP_SEQ_VELOCITY_1(_SEQUENCE)
  52. > End if
  53.  
  54. Oh my God! :) The IF STEPSEQ blah blah >127 control must be removed, and
  55. Gui Range used instead.
  56.  
  57. The only way to justify again correctly the gadget is this:
  58.  
  59. Gui Set 1,37,0,0 : Gui Set 1,37,0,STEPSEQ_VELOCITY_1(_SEQUENCE)
  60.  
  61.  
  62. But do you have this kind of IF code for every integer gadget of your GUI?? If
  63. so, you can reduce everthings to only few lines of code:
  64.  
  65. Example: i suppose your window is the window number 1....
  66.  
  67.  
  68. G=Gui Wait : GC=Gui Code : WIN=Gui Window
  69.  
  70.  
  71. If WIN=1
  72.  
  73.  
  74.  If G>=0 : Rem Check if the user has clicked a gadget and...
  75.  
  76.   If Gui Kind(WIN,G)=3 : Rem .....checks if the gadget is a INTEGER gadget...
  77.  
  78.       STEPSEQ_VELOCITY_1(_SEQUENCE)=GC : Gui Set WIN,G,0,0 : Gui Set WIN,G,0,GC
  79.  
  80.   EndIf
  81.  
  82.  
  83. EndIf
  84.  
  85.  
  86. This simple IF handle *ALL* the integer gadgets of your GUI, independently
  87. on wich GUI they are. The 127 limit is automatically applied by a previous
  88. call to Gui Range. 
  89.  
  90. Dinamic code... the secret of good programming.
  91.  
  92.  
  93. -- 
  94.  
  95.  
  96. Bye!
  97.  
  98.  
  99.                                      !!!
  100.                                      o o
  101.    +-----------------------------oOO-(_)-OOo----------------------------+
  102.    |                                                                    |
  103.    |  Pietro Ghizzoni - Dairymen Soft              __  /// Amiga 12OO   |
  104.    |     E-Mail:  ghizzo@agonet.it                 \\\/// 'O3O  5OMhz   |
  105.    |           ICQ 16361472                         \/// 18MB - CD4x    |
  106.    |                                                                    |
  107.    | Amos Development Group Coordinator                 AMIGA RULEZ!    |
  108.    |                                                                    |
  109.    +--------------------------------------------------------------------+
  110.  
  111.  
  112. ------------------------------------------------------------------------
  113. Start a new hobby. Meet a new friend.
  114. http://www.ONElist.com
  115. ONElist:  The leading provider of free e-mail list services!
  116. ------------------------------------------------------------------------
  117. Official AMOS WWW: http://members.xoom.com/AmosFactory/front.html